WEB Elektortib Sera ■ ' Bera , . 28. 06 . 89 ' 

D 0 k L! iTi e n t a t i 0 n , 




PrograiTun zu.(n Datei -gesteuarten Schraiban Von Hagnetksnnkartan 



Version , 

•Iv Kursberschrelbiing ' ' - ^ . ‘ ‘ 

Das Proarafnm dient zum Date! -gssteuarten Schreiben von Hagnet kennkar ten mit. 
der Schreib-Lsss’-Einrichtung iBLE) an der Kopf stati on K 8915'K. pie Daten fuer 
die Kennkartsn koennen aus einer -TsKt dated oder Biner dBas.e*~2~Dat ei entnommen 
i»^srdent " 

Es Murd nur die 2. Spur ,dar Kennkarte bearbeatst, . 

2. -Au-fruf .des progranimes , 

B y n t a K I ^ 

KKARTE --/{B — ^ ... 

1 t) Msnue-ggsteuertes Lesen und Bcnreiben- 

I - / 1 ■“ ii e b 0 r s c h r i f I " i s K t N a fu e “ ~ “ 

i 2) Bcheiben aus dar TeMtdatei ■ . • ^ 

i “ / d •“ U eb e r s c h r i 1 1 d B a s e H Sin s “ F e 1 d An is e 1 g e “ “ F el d Ke n n.k a r t. e “ “ " ” ” 

^ ^ . - - . . I "Fel dBedi nguriD' 

3) Bchreiben aus dBase*“Batei - . . •’ • 

2.i Henua-gesteuertes Lesen und Schreiben . . 

Paraflister^ ' • ' i 

Fl'ag?* /ffl' - . ■ ■ ; . ■ 

■ " ' ' ' ^ . 

Es wird vdr j eder . A'kt i on Lesen ‘qder Schrsiben ausgewaebits Beim L-esen wird oer . 

Karteninhalt anciezeigt:. Vor dein Schrelben muss u.er Karteninhalt elTigegeben 

werden = . - . / " 4 ■ . " • 

' 2 . g’ Bchrai ben aus' ainer leKtdatei ^ , 



Parametsrf ' ■ . ‘ - 

Flag; ft ... . ^ 11 

liebersehrift • ^ ist Ueberschrif t fuer die.Sitsmigi Leerzeicben durcn 
darstsl len. ^ ^ 

T ex t N a me N am e d e r T e k t d a t s i . 

Auf ball' der' TeMtdateisi ^ ■ - 

je Z.eile vnr-6 ei no Kennkarte ges'chrieben ^ 

- jede Zeile mus-s aus mind. 2.Tirlen bestehen ‘ _ 

- die Teile duessen mit aetrennt seinf Str ings koennen mit. 'F n-egrensi. 

seio (dBase’^Fnrmat E SDF Delemiter) ^ ^ . rV . l. - T 

“ der ers-t'e.Teil 1st die Be'scHrif tung der .Karte i.niaK uS ieicnen) 
tf.er.. 2 W 0 ite Teil 1st der Kennk-arten-Inhalt ( 

2^3 Sohreiben aus'einer dBass- 2 -^Datai . . • 



Parameters 
Flagi /d 
Ueber schr 1 ft 

Fsl dBeschr i f tung 
Fsl clKennkarts 
Fel dbsd i ngung • 



1 si Uebe r BC hr i f t fuer die Sltsung^ Laer^eichen- dur ch ‘‘j*' 
darstel 1 en r • ^ : 

F e 1 d n am e der B es c b r i f t u n g der Ken n k arts 
k e I d n a m e d e s K s r t e n i .n n a i t e s 



Nenn anqeosbsn dann ; » . . . 

wsnn dieses Feld an erster Position kein leerzei chen ' x* 
dann wird der Datensatz benutzt und das Feld qeloss 
sonst Hird.der Datensatz ueberganqen* 
sonst^ i^erden alle Datsnsaetze benut 2 ««; 



V 



. - > 



\ 



ri, m 




Prografliffi sum Bate! -g^steuer ten Schreiben von riagnetkennkar ten 
3^ Funktian dee. Programmes 



m KKarte 



? y i 21 UJ £\ 1'. 

|i n 

{Parame 
■CBi Lose 
{Datens 
i( (kei 



ner einiesen;- 
:hinri aufbauen) 

jaetse. saehl en inurbei 2 und 3)} 

.n Batei^ehier und Baten vorhanden) then 
?at ' ■ ^ 

[Baten holen rFunktinn abhaengig vom hlag) 

[Karte bearbsiten^ Funkti.on abhaengig vom Rag) 

.1 {alls Baten bearbeitet) 

:ei sch.i'ei ssen>. •• 



4. 


Quslltexte . 


• g.eschrie 


. <l) 


SLRNL- 


Tr^iber fuer die 
Iniine-“Anwelsung 


(2) 


■ KKBef RNC ' 


Befinitionen der 


(3) 


• KKSleRNC 


Prozeduren ?. uin A 


(4) 


KKBildRNC: 


Bi I dschi rmauf bau 


(5) 


0 w a s e 2 » I N u 


Zuqri ff zu einsr 


i6) 


. TKtBatRNC 


Ziigriff zi\ den T 


(7) 


KKNenuStf INC 


m e n u s g e s t e u e r t e 



g.eschrieben in . Turbo'-Pa^scal 3,0 (CP/M 



=nsr t uehrung 



(S) . KKPar. IMC 
(?) KKArb/INC 
(i'0) KKarte^PAS 

4,1 SL, INf 



Bearbei t-ungsprogramm 
Hauptpr ogr amm 



Bie 'Inllne-'Batei nird aus einer RPRN’^^Batei mit dem Programm PrnInJ,EXh 
erzeugt (Turbo'-Pascai 4^0 BCP), Sie wird als erste Prossdur des Programmes 
■ eingebunden (in KKarte . PAS) r' 



procedure Sle^ 
begin' 

inline ( 

{$i SI . inM 

snd.{Ble}| 



{-ireiber am^ Antang) 
(MC-Programm ab 20FFh !> 



Das INL-Programm muss deshaib auf die Adresse 20FFn qabunden seih (entnedt 
schon im -PRfi Oder binden mit PrnJni). . ‘ " 

Die. Puffer zum L-eserr und Sch'rsiben soHie.fuer die Fshiermeldunaen warden ? 
absolute Variable un-d .die ' Prossuursn sum' Lesen und Schreibeh als BKterna.1 
KKSleRNC deffniert/ ‘ . . 

4.2 dBass2. INC \ • . 

Blase- includ-B“l3uene i st/ all gem-si n aufgebaut und kann fuer anders Zwacke 
verwendet werden^ Es. koennen*'dHass‘-2"Batelen feldweise ge^lesen und 
gsschr i ebe^ 5 aber keine neuen Datensaetze a’nqsh-aengt werden* Wenen der 
Puffergrosssi 1st die Bate'nsatzl asnqe auf man i mal '2f4i Byte beschraenkf. • 
Es. warden f oj gsnde- Pro^eduren real i si er t ? . . ' 

■*- dBOpen • ; Eroeffrien einer dBase-2-~Bat el mi‘t Test, des Datei kopf es ,und Eir 
des ersten DatenB-atzes. 

dBRead . t Lesen einss. v.orgegebenen Feldinbaltes des aktuel I en- Satzes 
“rdlWrita i 'Schrelben ,i n sin vorgegebenfen FerdinhaltBS dss aktiiallen Satz^ 
-- dSBkip I Pas4 1 i ani eren auf den haechst en ' Batensatzes mit UebePqeherR, 
ge.Ioeschter Saetze. - , 

dBEof ; Test, ob ' Bate! ende errelcht. ■ ■ 

dBCTose I Bchliasssn dsr.Bat-ei* . - 





Programm Batel -gesttjuerten Schrei ben von Hagnet kennkar ten Blatt 3 . 

4«3 TKtDst, ir^P 

Biese. Incl ude-Queli e 1st allgefliein aufnebaut und kann fuer andere Zwepke 
verwendet ,werden. Es koennen I)ateh^datei. en ■ ifn i ex t'forfnat gel 0 sen werden, 5 die 
folgenden Auf bau- besi tsens 

-* iide Zeile kann au5 mehraren Teilen bestehsn 

r die Tei 1 e ,muessen fflit % getrennt ssin^ Strings koennen nut ” begren^t 
" sein (dSase^Format ^ SDF Dei emi ter ) v 

Es i^erden f-olgende Prozeduren realisiertj ^ 

- TjctOpen s eroe-ffneii der TsKtdatei und Einlesen der ersten Zeiie* 

“ TxtRead 1 Lesen sines vorgegebsnen Datensatztei les. 

- TxtSkip *. Einlessn der naichsten Zeile. ‘ ■' 

~ TxtEof 5 Test, auf Bate! ende , 

‘ . / 





' / 





) 
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8L.INL 



X 

{ 

{ 

{0085 



{0890. 

{0091 

[8092 

{0093 

{0094 

{0095 

{0096 

{0097 

{ 



ORG . 


2100K 


.280 






TITLE SEEN i Vl.l * 


BBOS 


EBU 


5 


LF 


EBU 


OAK 


CR 


EQU 


6BH 


CLS 


EBU 


0CH 


SIOIB 


EQU 


90H 


SIOIC 


EBU 


91H 


SI02B 


EBU 


92H 


SI02C 


EBU 


93H 


PIOQKB 


EBU 


94H 


PIOOKC 


EQU 


95K 


PiOHOB 


EBU 


96H 


PIOHOC. 


EBU 


97H 



) 

} 

12.05.89 Bu«nM/EK6/0C} 

j BDOS-AUFRUF L 

• ; NEUE ZEILE } 

: MA6ENRUECKLAUF } 

BILBSCHIRM LDESCKEN) 



0K=0pt6kop 



CTCK8 



{0099 


CTCKI 


EBU 99H' 




{009A 


■ CTCK2 


EBU 9AH 




{009B • 


CTCK3 


EBU 9BR 




{20FF}«8 


{ DB 


0 




{2I00}7$C37>$21B2 


{KKTest: .JP 


TEST 


j 


{2103>7fC37>$2!B9 


{KKRead: JP 


LESE 


5 


{2106)7fC37>$21C0 

/ 

{ ■ 
f 


{KKWrite: JP 


SCHREIEZ 


' 1 


\ SpeichBrvsn^inbarungsn 



SlOA HATEN 
SIOA KONTROL 
BIOS DATEN } 
SIOB KONTROL } 
F'lOA BATEN OK ) 
PIOA KONTROL OK) 
PIOB DATEN !10 ) 
, PIOB KONTROL NO) 
ler Hter Kartenposition, fiO=i1otDr > 
98H. ■ 



Takt fuer Kansl SIO-A) 

Takt fuer Kanal SIO-B) 

Takt fuer Steueruna GTCK0-K1) 
fuer Hotorsteuerzelt} 

-} 



12.05.1989 08:80 
12.05.1989 08:40 
■'12.85.1989 15:50 



{2109)78 

{210A)/0 



LFESP: 

{PUFEZ; 



{21SB>/$eD7$0»7s0D/$0D {PUFE: 



Fehlerspeicher ' ) 

Zsichenaniahl .Schrelbdaten) 
. EINGABEPOFFER iSthreibenl) 
$0D/$0Ii/iBD/$0B/$0B/$0D 



B8 1,0 
DS 1.0 
ns 37.0DH 

/f0D/$B5/fBS/$8D/$0D/t0D7t0D/$0B/f0D/$0D/$0D7$B.. 
/$0D/f05/f0D/$0D/fBr!/t0D/$BB/$0D/$0D7f0D/$BD/$'3il/$0D/$0D/l0B 
12130} 70 • {PlJFAZ: »S 1.37 : Zeithenanzahl.Lesedaten} 

;[2131)/f207$207t20/$20. {PUFA: BB 3/.20H I AUSSABEPUFFER' ILesen) ) 

. 7$207#207$287$287#207$28/$28/f207f2i'»2B7$287t207$207$207$207$28/f20/f20 

immmiQmmimimmmmimimiBfm/m/mim 

<2156) 7$24 {PUFAEHBE: BS ' l.''24H • : Endekeiinzeichen fuer BBOS) 

{2157}7070/070/8/87870 {SPA: DS 80,0 .. I Stack alt • ) 

, 

{21A7170 
{21A8)7,0 



{2}A,9}/f017f00 

{21AF}/f007$00 

{21BD70. 

.. 

X . ^ ' 

{ . 

{21B2}/f3E7$54 

{21B4}/$32/>t21AS 

{2iS7}/$I8/t0C . 

{21B9}7$3£7$4C, 

{21BB}7l327)f21A8 

{21BE}/fl67$05 ' 

{21C0}/$3E7$53 

{2iC.2)7$327)f21A8 

{21C5}/$EB7*737)$2157 ■ 

{21C?}/$31/>f21'A7 

mmmum 

mzumumm 

mmiiziumm 

mMMiwm'r' 

{mbYimimm 

{21B9)7OT7>$252E. 

/9nir’,/irTi/',«94fl7 



{SPE: 
{HERK: 
{HERKt: ■ 
{PUFZ: . 

{TS: 

1 

I 

{TEST; ' 
{•' 

{ 

{LESE: 

■{ 

{ • 

{SCHREIBZi 

{ 

{START: 

{ ■ 

{ 

.{ 

{ 

■ {START0: 



DS 

DS 

BE 

BB 



1*0= 

10 

.!;0 , 

0 0 , 0 , 0 , 0 , 0 . 



DS 1,0; 
Pcogrambeginn 



■ A.54H 
ikm ,A 
START ■ 
A.4CH 
(NERK),A 
START 
A.53H 
• (to. A 
(SPAl.SP 
SP.SPE 
A,i 

{TS)’,A 



, Stack nsu . , } . 

; Kennceichen lesenZschreibsn). 

; Tgst'kennz. lesenZschreiben} 

5 Zusatzspsicher . s • ) . 

Zuiachenspeicher f< Ausschriften} 



•LB • 
LB 
3R 
LB 
LB 
JR 
LB 
LB 
LD 
LB 
LD 
LD 



T=Ts5t 



L=Les'en 



CALL BILB 
LD A.2 
LB (tS), 
CALL BILD 
CALL INIT 



•SsSchreiben 

alten Stack retten 
neusr Stack 



E/A-BAOSTEINE , 



} 

} 

). 

} 

] 

} 

) 

) 

} 

} 

} 

} 



{21DF)7t3A7>f21A8 ' 


/ 

V 


LD A. (HERK) 


r 


} 


{2iE2>/$F£/t54 . 


/ 


CP 54H 


1 -T ? 


} 


{21£4}/$2£/lB9^ 


{ 


JR - Z.BTARTJ- 




> 


{21E6>/fFE7i53 ' 


/ 

1 


■CP 53H 


. n 

5 '“■J ^ 


} 


{21E8}/tCA7)$22D4 


\ 


3F\ Z.SCHREIB 




} 


{21EB}/fFE7f4C 


f 

l 


CP iCH 


■5 =L ? 


■» 

/ 


mmitm/m 


{ ■ 


JR Z.NEITER 




} 


{21EFr7fll/>f25B9 


(START! 1 


LD Dt.LES 


\ start fuer Test 


} 


mFDimmm 


{ 


LD C.9 




1 


{21F4}7iCD/>t8005 


{ 


CALL BBOS 




} 


{21F7)7$BE7$01.: 


{ 


LB C.I 




;} 


{21F9}/fCB/>$0005 


{ 


CALL BMS 




} 


'{21FC}/$327>$21A9 


{ 


LD • (HERK1!,A 




} 


{21FF}7fFE7$lB . 


{ 


CP IBH 


j ESCAPE ? 


}. 


{22Bl}7$CA7>.f248D 


{ 


JP' Z.ENDEl 


; CTRL-C ? 


> 


{2204)7$FE7$03 


{ 


CP 3 


} 


{2206}/^CA7>$248D 


• { 


JP Z.ENDEl 
CP 4CH ^ 
JR Z.NEITER 


■ ) 


{2289}7fFE7$4C 

{228E}7$287$07 


{ 

{ 


1 =L ?' 


i 


{220B}7$FE7f53 


{ ■ 


CP 53K 


; =s ? 


) 


{220F}7ICA7>$22B4' 


{ 


JP Z.SCHREIB 
JR STARTl 




•) 


{2212}7fl87IBB 
{ .. 

•f 

{ 

{2214)7f3E7$83 


{ 




1 

J 

• }' 

Geraet 

i 


f 

5 


Karteneinzug autoifiatisch* mm Karte.inB 


(HEITER:’ 


LB A, 3 

LD (tSl,A 




{2216}7f.327)$21BI 


f 

V 




' } 



koffiffit) 



si> '4’' 




12.0&.89 / I4i44 

{2219}/$CD/)I252E 

{22iC)/«B/l94 

{221E}/$FE/I0i 

{■222S)/$28/p8 

{2222}/$3E/^62 

.{2224}/J32/>$2ie9 

f2227}/jD2/>t-244e 

{222A}/tCB/>l2502 

{222B)/J3E/$gF 

{22mimmi ■ 

{2231)/l3£/:^.03 

{2233)/fD3/F97 

{2235}/$l)S/f96 

{2237)/$3E/i02 ' 

{2239}/$II3/$9fe 

{ 

{ 

{22U)/m/m 

mzDnwm 

{223F)/«8/IFA 

{2240ml />t8408 

{2244}/$2i/>f-213I 

{2247}/J06/t25 

{2249}/$3E7$C2 ' 

{224B}/$J3/$96 

{224D}/#i)S/t93 

{224F}/$CByt47 

(2251}/l2B/.t08 

{2253}/$IB 

{2254)/$7A- 

{225S}/*B3 

{2256}/$20/fFl ' 

{2258}/IC3/>$2279 

{225B}/f3E/$0I 

{225J)/»3/j93 

{225F}/$l)B/$93 

{2261}/$E8/$70 

mmtmimm 

{2266)/f3E/l03 

{22mmmn 

mbzmuim 

{226E)/$C6/$30 
C2270}/$FE/f3D 
{2272}/tCA/>f22B7 
{22m!W 
{2276) />23 

mmmmm 
{ , 

{• 

{ ■ ■ • 

■ {2279} /$78 

{227F}mE/$01- 

{228l}/$D3/$?8 

{2283)/$DB/$94 

{2285}/$FE/f01 • 

{2287)/f20/«FA 

{2289)7$3E/$03 

mmnmimmh 

■ {229B}/$FE/f53 

mwmmmm 

{2295}/$FE/$4C 

{??970'*CA/>i248B 

{ 

{ 



{ 

{ 

{ 

{ 

{ 

{ 

{ 

{BEITERl! 

{ 

{. 

{ 

{ 

{ 

{ 

{ 



CALL BILD 
!N A,(PI00KB) 
CP 1 

2,HEITER1 ■ 
A, 2 

(FESPl.A 

nc.fehIer 

CALL 1N!61 
LD AJ8FH 
(PIQHOO.A 



JR 

LB 

LD 

JP 



-02- 

Op-I(oppler 1 ? 
Fehl 0 rs 2.Karte 



SL.INL 



OUT 

LD 

OUT 

IN 

LB 

OUT 



mONOO.A 

A,(PI01i0B) 

A / 

(?-IOHOD) i A 



Initialisierunq 
PIO motor) Bit 

Bit, 0-2 Ausgibe 



Hot or ein 
toneinzuQ 



(EiNl! 

{ 

{ 

{ 

{ 

{ 

{ElNIli 

i 

} 

{ 



{ 

} 

{EINI2:' 

r 

{ ■ 

{ 

{ . 



't 

4 

{ 

I 

{ 

{EIN13! 

{ 

{ . • 



(STOPF; 



(STOPFi! 

{ 

{STOPli 

{ 

{ 

{ 

{ 

{ . 

{ 

f 

{ 



Lfeseroutine Tuet Spur 2> 



IN 

CP 

JR 

LD 

•ID 

LB 

LD 

OUT 

IN 

BIT 

JR 

DEC 

LB 

OR 

JR 

JP 

LB- 

OUT 

IN 

ANB 

JP 

LD 

OUT 

IN 

AND 

ADD 

CP- 

•JP 

LD 

INC 



A,(PI00KD1 

6 

NZ.EIKI . 
BE;0O400H 
HLiPUFA 

A;8C2H 
(PIOHOD) .A 
A.(SI02CT 

0:a 

Ni.EIN12 

BE 

AJ 

* 

Iz^EINil 

STOPF 

A.i' 

(SI02C),A 
A.(SI02C) , 
7^K . 
N2,FEHLER 



I Q-koppler 2-^-3 ? 

I Zaitschleife itiSs 

) 38 Zeichen 

f llotor ein ■ 

\ Zeidien da ? 

r-ia^ 

I nein 

I gesaiTiie Karte'darchsuchEu) 



} 
\ 
\ 

} 

) 

} 
> 

betrisb} 
} 
} 
;■ 
> 

} 
\ 



kei 



Zeichen da= Karte raue ! 

} 



A 



■V 



(PIOHOB).A 

A.(SI02Dl 

0F.H 

A.30H 

3iH 

Z,COBE 
(flLIiA 
HL 



Fshlsrststus lesen 
BO 4,5,6 

Motor aus 



I Zeichen lesen 
i fuer ASCII maskieren 
! 30H -fuer ASCII add ierenJ 
! auT Leerzeichen testen (karts)} 



DJN2EINI1 

karte ausserlen 



' LD 

S? 

LB 
OUT 
X IN 
CP 
JR 
LB 
OUT 
LB 
tP 
JP 
CP 
JP 



A,B 

38 

ZiFEHLER 

mioHOBI.A' 

A.iPIOOKB) 

I 

NZ.STOPI 
A, 3 

(P!OHOB),A 

AOHERK) 

53H 

Z.ENDEl 

4uH 

IMWA 



Zeichen speicharn 



Zeichenaniahl >3? ? 



jaj darni Lese^ehler 
Hotor ruecki^aerts stsuern) 
■fuer- Karte raus } 

} 

Qpto-Koppler | ? > 



Hotor- aue 



fuer nicht Test 
■fuer nicht Test 



i Ausgabe des Ein-gabeputfers 



{- . 
{•229A}/f3ft/>$21A9- 


(AliSi 


! n 


AOHERKI) 


{22911} /$FE/$55 


{ 


CP 


53H 


{229F}/$28/JB8- 


{ 


JR 


Z.AUS2- 


{22Ai}/$U/)$213i 


/ 

L 


LB ■ 


DE.PUFA 

kK 


{22A4}/$0E/J09 


(AUSh 


LB 


{22A£.}/$CIi/>t0085 


1 


CALL 


BDOS - 


{22A9},/$21/>$2131 ' 


CAJJB2i 


LD • 


HL.;PUFA 


{22AC}/«06/^25 


t 

\ 


LB 


S,37 


{22AE}/#3E/$20 


{ 


LB 


A.28H 
(flL) ,A 


{22S0}'/$77, ■ 


' •[AU83i 


•LB 


{221I}/$23 


{ 


■INC 


KL 


{22B2)/$10/$FC 


{ 


BJNZ AUS3 


{22B4}/-IC3/)f24SA 

f 


{ 




ENBE 


•i 

{ 


5 


LeetEeichen auf 


'mmimim 


{CODE: ' 


LD 


A.20H 

EINI3 


mmmznmn 
{ ■ 


{- ■ 


JP 


{ . 

{. 

/ 


J 

\ 


Narteschleitep 


{22BC}/411/>I044S 


{WAITS; ' 


■ LD 


B£,00448H 


{■22BF}/OB 


•[WAJTSl: 


DEC 


BE 



) 

■} ■ 
) 

•) 

. 

Pnde } 
) 

iMi Ende } 
} 



Ausqabi 



nur bei Test 
} 



/ 

} 

} 

} 

} 

}. 

> 

} 

} 

} 

} 

} 

> 

> , 



yarteschleite 1 
il=6irrs 



/ 
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-03- • ' ■ ■ SL.Ific 


' ■ {22C0)/t7A 


. 


LB A,B 


1 } ' 


.. ■ {22C07IB3 




OR E 


i • ■ • ■ • 


• . ■ {22C2}/$20/fFJ 


‘ { 


JR NZiWAITSl 


1 • > 


{22C4}/«C9 


■{ * 


RET , • 


1 . „ > 


(2285) /$F5 


. mill 


PUSH AF 


1 Harteschlei-fe 2 } 


{22C6}/tll/>i0280 


i 


LB BE.00280H 


\ 6,8(Ti5 * } 


' {22C9)/t-lB ■ 


imuh 


BEC BE 


i > . 


mwim 


{ 


LB A,B 




■mm/m 


i 


OR E 


•; } 


{22CC}/$20/fFB 


{ 


JR HZ .HAITI ^ 


. ■ } 


{22CF.}/$3k7$43 


{ 


LB A.,43H' 


i } i 


{22D0}/$D3/$96- 


{ 


OUT (pronoBi ,a 


1 


{22D2}/$Fi , 


{ 


POP AF 




{2213} /$C9 

t ■ . 

- > 


{ 


RET 


i ■ - ■■ 


{ • • • 


1 


Schreibroutine 


} 

} 


{22B4}/$CB/)$24E9 

mmimnmm 


iSCHREIBi 


CALL IHIB 


/ 

} . • 


•{ 


CALL IHI9 


; CTC-Init ) . • 


{22BA}/$3A/)$21A8 


{ 


LD A.IHERK) 


j 


{22BD}/fFE/l53 ' 


{ 


CP 53H 


} 


{22BF}/$CA/)$2402 


{ 

f 

\ 


Jp Z.SCHREIBB 


1 bBi nicht'Tsst . } 


{22E2}/l0E/$09 


LB Ci9 


" j ^ 


. {22E4}7fll/>t2681 


f 


LB BE,LER 


i Lesrzeile ausosben > 


{22E7}/fCD/>#8085- • 


{ ' 


CALL BBGS 




{Z2EA}?*21/H210E 


{ 


LB HL.PUFE 


1 Schrgibsp'eichar } . 

i 3? Zeichen festqeisqt } 


{22£B}/»06/t-25 


f 

\ 


LB B,37 


{22EF>/fE5, 


{SCHREIBIi 


PUSH Hl 


1 Routine Sthrsibipdchsr) 


{22F0)/$C5 


{ ■ . 


PUSH BC 


J fuBllen ' y 


, . . {22F1}/$BE/$01 


r 

\ 


LD C,1 


i ESOS**Einqabe ■ ) 


i ■ {22F3}/ICD/H8005 


{ 


CALL BSOS/ 
CALL PRliEF 


} 


{22F6}/$CB/>$243F. 


{ 


. ' / 


• (22F9}/f28./|88 ■ 


{ 


JR ZjSCKR 


\ 

' -J . - 


■ {22FB}/$3E/$03 . 




LB a! 3 
LB (FESPl.A 


\ unerlauhte Zeichen - 5 


{ " {22FD}/f32/>$-2189 




■ •' ■ } 


{2300}/$O3/.>#2446 
’ - {2303}/ttl 


. { 


JP ■ FEHLER 


- - } . 


{SCKR: 


POP, BC 


? ' / • 


{2304} /$E1 


{ 


POP HL' 


• 


, {2305} /$77 

< {2306}/$FE/$0B 


f 

V 


LD (HL),A 


1 . i 


{ 


CP 00BH 


; GR ?• (ale ftbschluse der EinqBoe)} 


- . . •- {230S}/m/t03 


{ 


JR. Z,SCHREIB2 


} . 


{230A}/t23 _■ 


{ 


INC HL . 


} 


{230B}/fl0/$E2 


{ ■ 


DJNZ BCHREIBi 


} 


i ■ •{•230B}/f217>$210B 


{SCKREIB2: 


LD HL.PUFE 


t CR suchen . ■ } 


{2310}/f3E/$8B 


{ 


LD A.to 


} ■ 


. {23I2}/$0.I/>$0026 


{ 


LD BC,38 


} 


{23t5}/$EB/«I 


{ 


CPIR ■- 


7 ■ i . - .. . 


{2317}/#28/f02 




JR Z,SCHR£IS3 


■ ... {2319}/«8/$06 ' 


{ 


JR ■ SCHREIBF 


} , , , 


{23lB}/f2B 


{SCHREIB3: 


DEC HL , • 


: fflit Hex Bd auFfuellen } '■ 


, {231C}/$41 


{ 


LD • B,C 


■ } • . . ■ . 


' {2311} /$77 


{SCHREIB4; 


LD ■, iHL),A 


) ■ ,. . 


{231E}/$23 


{ 


■ INC HL 




{231F}/$I0/$FC 


• { 


- BJNZ SCHREIB4 


i } . 


{232!}/43E/$iF 


{SCHREiBF: 


LB . A.iFH 


f Endekennseichen } • ' * ‘ 


' - . {2323} 7477 


{ • 


LB (HLliA- 


J" 


{2324}/42i/)42i08 


{SCKREIBU: 


. LD ■ HL,F#E 




{2327}/401/)l0025 


■ { 


LD BC.37 ■ 


'} - - 


{232A}./t3E/420 


{ 


LB A,20H 


. } 


{232C}/4EB/4Bi ' 


. { 


. CPIR 


} . 


{232E}/l20/f06 


• { 


JR NZ.SCHREI'BX- 


■ ' ■ { 


{2330} /$2B 


.' f 


DEC HL 




{233i}/$3E/40D 


{ 


LD AJ8DH 


y 

i ■ 


■ {2333} /f 77 


f 


LD {flu ..A 




{2334}/»IS/*EE 


{ 


JR SCHREIBO 


) 


mwiimum 


(SCHREIBK: 


LB B,37 




mmimimm 


/ . 


■LD HL.PUFE 
LB aJhL)’ 


^ ' ' 


mm lilt 


. (SCHREIBYi 


? 37 Zeichen fuer Karte )' 


^{233C)7$E6/$0F 


{ 


ANB 0FH 


] auf 5 Bits Bii richtioef) - • 


{233F.}/4E2/>42343 ' 


r 

\ 


JP PO.SCKREIBB 
ABB aJbH 
LB (ftL).A 


i Paariokeit korrigisren } ■ - . ' 


{2341}/$C6/$i8 
■ {2343} /.$77, 


‘ .bcHREIBMj 


1 . : > ' , ■ 

* 4 . 


{2344} /$23 


{ 


IHC , HL ' 


; ■ } . ■ , ■ 


{23.43},/$t0/$F4 . 


{ 


DJHZ SCHREIBY 


: }'■ 


{2347}/42}/>$218B 


{ 


IB HlsFUFE 


^ ’ y 

J 


{234A}/$AF 


r 

4 


XOR A . 


• 1 Pruerbyte giYechnen > . 


4234B}/$F5 


{ 


PUSH AF 


i 


{234C}/4BE/40B 


{ 


LB C.0BBH 




{234D/4F1 


{ 


POP AF 


> 


{234F}/fA9 


{ 


XOR C 




{2350} /If5 


{ 


PIJSH'AF 


• , 


{2351}/$7E 


{QSUH: 

{ 


CD AJHL) • 


■ 


■■{2352}/$E6/$8F 


AND 8FH 




{2354}/4C6/l38 


{, 


ADD A.30H 


. '• 


{2356}/fFE/.$3B 


{ 


CP -3111 • 


• ) - 


{2358}/$28/$0E 


t 

\ 


JR Z,8BUM0 


: , . } 


\ ' {235A7/IFE/43F 


{ 


CP 3FH 


I • > 


{235C}/428/40B 


{ 


JR Z,BSUHi 


> 


{235E)./$4r 


{88UK00; 


LD C.A 


'5 


{235F}/4F1 


{ 


POP AF 


} . 


■ ■ ■ {2360} /IA9 


{ . 


XOR C 


i • } • ;■ 


. .. ' {2361}/$F5 


{ . 


PUSH AF 






12.06.89 / 14:44 



-04- 



SL.INL 



{■2362} /I23 
{2363}/$18/IEC- 
{2365}/$3E/*20 
(2367)/$18/*F5 
{2369}/*E6/$0F 
{236B}/J4F 
(2360 /$F1 
(236])} /$A9 
{236E)/.tE6/$0F 
{2370} /tE2/ >$2375 
{2373}/$C6/ll0 
. {2375}/«2/>$21AB 
{2378}/$DS/l94 
{237A}/fFE/J01 
{237C}/«6/4-08 

■mm mu m2 . 

{2380>/«2/>$2109 
{2383}/fI)2/)t2448 
{23B6}/$CB/>$24F2 
{2389} /$C1!/ >$2526 • 
{238C}/$|E/f42 
m-mi-invm ■ 
{2390}/l3E/j80 • 

mmi-mmz 

mmmmm 

m%}hftmt- 

{239B}/f28/$FA 

{2j9Ai / $3E7 %0B 

{239C}/i-2F 

{239B}/IE6/$1F 

{239F}/$B3/492 

{23Al}/t3E/$C5 

{23A3}/JD3/$93 

{23A5}/J3E/i0B 

{23A7}/$B3/$93 

{23A9}/f2I/>«10B 



{23C7}/ICD/)$22C5 

{23CA}/$2!/)$21AB 

{23C1)}/F06/J85 

mmiME/wi 

mmrm/m 

mmim ■ 

{23B4}/$2F .. • 
{23B5}/$E6/F1F 
.C23B7}/#B3/f92 
{23B9}/$23 
C23BA}7$CB/)«2BC 
{23BB}/tCB/>$22C5 
. '{23E0}/$ia/4EB 
{23E2}/l3E/$42 
{23E4}/$D3/$96 ' 
•f23E6}/$AF 
{23E7}/$2F 
{23E8}7»E6/$1F 
{23EA}/«B3/I92 
{23 EC-}/$BE/j93 
{23EE}/$CS/$57 ' 

{23F0}/I20/¥FA 
{23F2}/4BB/$93 
{23F4}/#32/)42l30 
{23F7'}/$3E/$85 
{23F9}/JB3/$93 
{23FB}/$3E/$88 
{23FB}/$B3/$93 
{23FF}/FC3/)F227F 
Qmmwmim 
{2405}/$3A/>$210A 
{2408}/#FE/F26 
{248A}/$38/$2C 
{240C}/$47 
{240B}/$7E 
{-240E}/#CB/>t243F 
{2411}/FCA/)I241C 
{2414}/F3E/F03 
{2416}/$32/>$2109 
{2419}/IC3/>$2448 
{241C}/fE6/$0F 
{241E}/IE2/>$2423 



{ 

{ 

{QSUH0! 

{ 

{BBUNI: 

{ , 

{ 

{ 

{ 

{ 

{ 

{BSUH2: 

( 

{ 

I 

{ 

{ 

{SCHREIB5: 

{ 

{ 

{ 



(SCHl: 

/ 

L 

{ 

{ 

/ 

I 

{ 

{ 



INC 

JR 

LB 

JR 

ANB 

LD 

POP 

XOR 

AND 

JP 

ADD 

LD 

IN 

CP 

JR 

LD 

LD 

JP 

CALL 

CALL 

LD 

OUT 

LD 

OUT 

IN 

CP 

JR 

LD 

CPL 

AND 

OUT 

LD 

OUT 

LD 

OUT 

LB 



HL 

0SUH 
A.20H 
BSUH00 
0FH ■ 

C.A 

C 

0FH 

P0,SSUH2 

(PUFZ),A 
A, (PIODKD) 
1 . ■ . ■ 
ZsSCHREIBS 

I^ISP) ,A 

NC.FEHLER 

INil 

INI22 

A.42H 

(FlONOD) .A 

Ai80H 
{SI02C) ,A 
A,(PI00KD) 

NZ.SCKl 

A.6BH 

IFH 

(SI02D) ,A 
A,8C5H 
{S102O .A 
AJ0BH • 
(SI02C),A 
HL.PUFE' 



{23AC}/$86/$26 


{ 


LD B.38 


(23AEI/I3E/F42 


{SCHRE1B7^ 


LB A;42H 


(23B0}/«3/$96 


{ 


OUT (PmiOD)iA 


{23B2J7I-7E 


• { 


LD . A,(HLi • 


(23B3J/IF5 


r 

\ . . 


PUSH AF 


{23B4T/I2F 


{ 


CPL ■■■ ■ . 


{23B5}/'$E6/#1F 


{■• 


AND IFH' 


{23B7}/iD3/F92 


{ 


OUT {SI02D),A 


{23B9}/$CD/M22BC 


{ 


CALL WAITS 


(23BO/$23 


{ 


^NC HL ( 


(23BD}/*F1 ■ ' 


f 

"L 


POP AF ' 


(23BE}/$FE/41F , 


'{ 


CP IFH ■ 


{23C0}/F28/$05 


{ 


JR Z.SCHREIB8 


{23C2}/ICD/)I22C5 


{ 


CALL WAIT 


{23C5}/fl0/$E7 


( . • 


DJNZ SCBREIB7 



{SCHREIB8: 

•■{ 

{ - 
{SCHREII9: 
{ .. • 

{ . 

{ 

{ 

{ ■ 

{ 

{■ 

{ 

{ 



CALL NAIT 
LD 



LD 

LD 

OUT 

LD 

CPL 

AND- 

OUT. 

JINC 

CALL 

CALL 

DJNZ- 

LB 

OUT 

XOR 

CPL- 

AND 

OUT 

IN 



{SCHREIBA; 

{ BIT 

{ . JR 

{ IN 

{ LD 

{ LD 

{ OUT 

{' ■ LD 

{ OUT 

{ ■ ■ JP 
{SCHREIBB: LD 
{ ■ LD 

{ CP 

{ -JR 

{ LD 

{SCHREIBC: LD 
{ 

{ 

{ 

{ 

{ 

{RICHTIGi 
/ 



CALL 

JP 

LD 

LD 

JP 



JP 



HL.PUFl 
hi 
A 42H 
(f'IOHOD!,A 
A,(HL) 

IFH 

(SI02D),A 

HL 

NAITS ■ . 

SAIT 

SCHREIB9 

A,42H 

(FiOHODI.A 

A 

IFH 

(SIQ2I)),B ■ 
A.(SIQ2C) 

n ^ A 

NLSCHREIBA 
A. (81020 - 
(PUFAZ),A 
A.5 

(81020, A 
A 8 

{'SI020,A' 
ST0P.F1 • 
HL.PUFE 

•aJpufez) 

26H 

C.FALSCH 

b;a, 

A,{HL) 

PRUEF 

Z.RICHTI6 

Ai3 

(FESP),A - 
FEHLER , 
IFH 

PO,SCHREIBD 



) 

} 

> 

} 

} 

} 

} 

} 

auT j Bits und nchtlge) 
Paaritaet karri-gieren ) 

Pruefbyte eintraqen 
Optokoppier 1 ? " 



nein ! 

Fehlen 2,Karte 



s 

'} 

) 

} 

} 

} 

} 



CTC- und SIQ-Init 
CTC-Init 
Hdtor eiru E/A-Frsiqabe) 
- } 
CRC-Sendsr-Resst 



Qptokoppier 2-^3 ? 
nsin ! 

St artkenna lichen . 

- Kafliplefiteatb-iidung } 

Haskisrung 5 Bit }. 

•leicbenausqabs . • ) 

CRC/SYNCS-fssst, R8q,5> 



It Frsi qab9jCRC*RTS 



38 Zeichen (sit Endeteichen)) 

• - } 

Zeichenausnabe sit Endekerm?.} 

} . 

. ' ' ) 

Kospl effientbi 1 dunq. } 

teller ung 5 Bit^ } 

/sicbentegabe } 

Wart8Bcbleil& fuer Zaichsnausaabs > 
} ' 



Endez&icben ? 



Warteschldfe [mi HotorstopI 
na-®chstss Zaichen ladsn) 



Zusatzgpsicher 
Hotor sin 



5 Bytss als Rest aasgeben) 
KDriplstetbildung ) i 

Haskierung ) 

Zsirheoausgabe . ) 

Islartescbleifs fuer Zsi chenaiiSQabs } 
Wari^sscbleife (niit Hotprstop)"} 



Istzts "Null” ausgsbsn) 

i 

} 



auf “Sender Ieer“ 

Reset teal, B 
Zeicbsnaraahl >37 ? 



ja*"->Feh!en unerlaubte Laenqe) 
erlaubts Lasnqe in B ladenl 



Zeichsnprue-fung 
unerlaubts Zeichen 



} 

} 

} 

} 

auf 5 Sits und richtige) 
Paaritaet karri gieren } 




12.66,89 7 14! 4i 
{242n/$C6/$16 


{ 


ABB 


A,I0H 


miDWl 


(SCHREiBBi 


LB 


(HD.A 

HL 


{Z4245/$23 


{ 


INC 


(24255/$10/$E6 


■ { • 


DJNZ 


SCHREIBC 


{24275 /$3A/ >$21 0A 


{ 


LB 


A,(PUFEZ5 

BA 


{242A5/$47 


{ 


LB 


{242B5/$3E/'$2S 


' { 


. LB 


A 25H ■ 


{242B>/$90 


{ 


SUB 


B- 


{242E>/$47 


{ . 


LB 


B,A 

A; 00 DH 


{242F5/$3E/$8B, 


{ 


LB 


(BCHREIBEj 


LD 


(RL) ,A 


{2432} /$23 


‘ { 


INC 


HL • 


{2433)/$10/$FC 


{ 


BJNZ 


SCHREIBE 


{24355 /$C3/ >$232 I 


{ 


JP 


8 CHREIBF 


{2438>/$3E/$04 


(FALSCHi 


LD' 


A.4 


{243A5/$32/>$2109 


i 


LD 


(fESPl,A 


{243D5/$lS/$09 

{ 

{ 

{243F}/$2i/>$2559 


■ { 


JR 


FEHLER 


[ 

1 


Zeichenprue-fung 


{PRUEFi ’ 


LD 


hl,zprue'f 


{•Z442}/$01/>$000C 


{. 


LB 


BC;i 2 - 


{2445>/$EB/$Bl 


f 

\ 


CPIR 




{2447>/$C9 


■t 

\ 


RET 





"05- 

} 

} 

} 

} 

freie Steilen bis 37 Zeirhen) 
git BBH aiiHuellen ) 

} 

\ 



f . 

mmmu-m {fehlerj 

{244A>/iT-3A/>$2IA8 { 

{244I)}/iFE/t53 { 

{244F}/fCfi/>$227F { 

{2452}/tFE/$4C { 

{2454}/$Cft/>$22?F 
{2457>/f3£/t30 
{2459}/tD3/t93 
{24SB}/t3A/>l2109 
{245E}/JFE/$01 
{2468)A$2B/$ie 
{24625 /?FE/f 02 • 

{2464}/$28/$ll 
{246657tFE/*03 
{2468}/$28/ll2' 

{246A5/$FE/#04 
{246C}/F28/fl3 
{246E5/IAF. 

{246F5/432/5I2189 
{24725/$! l/,)$2565 
{24755 /$18/$8D • 
{24775/$ll/>$257E 
{247A5/$18/$08 • ■ 

{247e5/$li/>$2591) 

{247F5/$i8/$03 
{24815/$11/>$25B4 . 

{2484} /$CD/ >$0005 
{248p/$C3/>$227F , 

{ ■ ' ' ' 

{ ■ 

{ 

{248A}/$C3/>$211)4 
{248I)}/$EB/$7S/>$2157 
{249!5/$C3/>$0000 

{ 

/ 



{ ^ 

{ 

{ 

f 

{ 

{ 

{ 

I 

{ 

(■ 

{ 

{ 

{ 

(FEHLERh 

•{ 

imimi 

i 

{FEHLERS^ 

{ 

{FEHLER4^ 

(FEHLEREs 

\ 

I 

\ 

{EWE! ’ 
{ENBEl: 

,{ ■ ^ 

I 

! 



{ZK; 



C24945/$3E/$05 
{24965 /$B3/$9B ■ 

{24985 /$AF . { 

{24995 /$B3/$9B ■ { 

{249B5/$BB/$9B { 

{249B5/$3E/$03 { 

{249F}/$D3/$9B { 

{24Ai5/$C9 { . 

{ 

{ . ' 

{ 

{24A25/$CD/)$24A6 {INlTi 

{24A55/$C9 . , ■{■ 

{24A65/$21/->$2657 {INIs 

M24A95/$8i/>$0395 { ' 

{24AC5/$EB/$B3 { 

{24AE5/$BB/$94 { 

{24B05/$3E/$0F { 

{24B25/$B3/$97. { 

{24145 /$3E/$03 {. 

{24B65/$B37$97 { 

{24B85/$3E/$47 { 

{24BA5/$B3/$96 ' { 

{24BC5/$21/)$265i { • 

{24BF5/$0!/>$0298 {■ 

,{24C25/$EB/$B3 { 

{24C45/$3E/$03 { • 

mmmzim { 



Fehlerroutins 

LD C,9 I 

LB , aI(HERK) ■ 

CP ' 53K 

3P Z,ST0PFI 

CP 4CH : 

JP Z.STOPFl 

LB A:30H 

' OUT ■ !Si02C!,A 
LB A. (FESPf 

CP • .1 ' 

JR frFEHLERi : 

CP ■ T- . 

JR ’Z,FEHLER2 • . 5 

CP 3 . . 

JR Z,FEHLER3 v- i 

CP'. 4 ■ ■ 

JRi Z,FEHLER4 .1 5 

A ' . 

LD^.(FESP5,A 
LB ' BE,fEl 

JR FERLERE 

LD BE,FE 2 

JR FERLERE 

LD .BE.FE3 

JR FERLERE 

: LB DE/E4 

CALL BBSS , 

JP STOPFl " 



/ 

/ } 

} 

} ’ 
} 

] unerlaubt^ ZeichenaniShl) 

5 
5 
5 
5 
5 

beile 
p.- 5 
5 
) 

} 



^-ZPRUEP i5t ZsichentabE 
I Fuer ^rlaubte Zeithen 



Fehlerausgabe nur be! 



LeseFehler 
2. Karte 

uneriaubtE Zeichen 
unerlaubte Laenge 



PrDgraiiehde 



8TART0 > 
SP,(SPA5 
0 ; 



•JP . 
LB •• 
JP 



Zeitkonstante fuer SIO 

’ LD A.5 . 

OUT .!CTCK3)iA 
BOR A ■ 

, GUT {CTCK35=h 
'■ IN A.(CTCK35 
■LB A:3 
OUT (CTCK 355 A 
RET • 

i Startinitialisierung 

' CALL INI . 

RET '• 

,LB- HLiPIOAC 
LD BC 0300H+P1OOKC 
OTIR 

IN A,(PiOOKD) j 
LB a!00FH' 

OUT (ilOHOC),A 
LB A.3 . 

OUT !PI0H0C),A • 

LD A.47H 
OUT (PI0H0D),A 
LD HL,CTC0 3 
LB BC e200H4CTCK0 
OTIR I 
LD A, 3 

OUT (CTCKi),A i 



TEST 

5 

j 

5 ■ 

5 
5 
} 

5 

5 

} 

5 

5 

5 

5 

■5 

5 

5 

} . 

5 

5 • 

5 

5 

■ 5 
5 



4- 



PW^O^tQ-Koppier 

PICA Start 
Byteausaabe 
Hotoreteuerung 
Interrupt gesperrt 



CTC-Kanal 0 
CTC-Kanai 1 



.J 

\ 

1 

5 

5 

5 

5 

]■ 

} 

} 

} 

f 

} 

) 

} 

} 

\ 

J 

5 

5 

5 




i2.S6.S9 / I4i44 



SL.INL 



{24C8},/«3/$9A 


{ 


OUT 


(CTCK2),A 


; CTC-Kanal 2 


’ ^ 
J 


{24CA}/'»3/m 


{ 


OUT 


(CTCK3),A 


j L 1 U^ksfiai 3 


} 


{24CC)/$3E/^18 


■ { 


LI) 


R.iSH 




} 


{24CE)/Fli3/I93 


{ 


OUT 


(S!02C),A 


; Kanal -Reset 


SIOA+SIOB } 


{24D0)/FD3/f91 


{ 


OUT 


(SIOICliA 




} 


{24B2}7?21/>$2666 


{ 


LB 


HL,S!0BCL 




}- 


(24D5)/$01/>I0E93 


{ 


LB 


BC;0E00H+8IO2C 


; SIO-B (Spur 


2) } 


{24D8}/fED/tB3 


{ 


OTIR 






} 


{24DA}/$21/H265A 


{ - 


LI 


HLiSIOAC 




} 


{24BD}/'I01/>F8C9! 


{ 


LB 


BC;0C00H+SIOLC 


; SIO-A (Spur 


1) } 


{24E0)/$ED/$B3 


{ 


OTIR 






) 


(24E2}/$3A/)I2IA8 


V 


LD 


A.(HERK) 




) 


{24E5)/IFE/t-53 


/ 


CP 


53H 




} 


{24E?)/$28/$08 


.r 


JR 


NZ.IfilA 




i 


C24E9)/«l/>f2&74 


, nRIB: 


LB 


HL SIOBC 




) 


{24EC}/$01/>F0A93 


{ ' 


LB 


BC;0A00H+S1O2C 


; SIO-B (Spur 


2) } 


{24EF}/$E»/$B3 


, { 


OTIR 






} 


{24Fl>/fC9 


UNlAi 


RET 






> 


{24FZ}/J2i/>$264B 


{INH: 


LD 


HL.CTC00 




} 


C24F5}7$01/)F0298 


{ 


• LD 


BC;0200H+CTCK0 


: CTC-Kanal 0 


) 



(24FA>/I21/>$267E 

{24FI)}/$0i/>$S493 

{2500}/f48/$2i 

{2502}/$CD/>$250B 

(25g5J/$21/>^26S2 

{250S}/$0i/>#0B?3 

{250B}/l^lS/fl6 

{250B}/$21/>I2653 

{2510)/l0i/>l029a 

{25i3}/$EB/$B3 



OlIR • 

ID HL,S101AC 

LB BC:0406H-fSiO2C ^ SIO-B (SDur 2) 

m mim 

CALL INI9 
LB HL.SIOIBC 

LB BC 0S00HiSIO2C i SID-B (Spur 2) 
JR INfl3A- . 

[ii hl nc=0 

d -BC;i2MK+CTCK0 ; CTC-Ksnel 0 



{2515}/$2i/>r2655 


[Wmi 


LB * 


HL.CTCI10 




/ 

} 


{25l8}/r3i/>$0299 




in 


BC;0208H+CTCKi } CTC-Kanal -I 




{25iB}/f-EB/iB3 


* 


OTIR 






{2SlD}/$2i/>$264D 


[INIIl! 


LB 


HL.CTC02 




} 


(2520}/F0im029A 




LD 


BC;e280H+CTCK2 j CTC-Kanal 2 




} 

} 


{2523}/$EB/$B3 


CINIi3As 


OTIR 






(25251 /tC9 


( ■ 


RET 






} 


{2S26)/I21/>«64F 


(11^122; 


LD 


HL,CTC03 




}■> 


{2529}/$8i/)$02?B 




. LB 


BC,0208H+CTCKo : CTC-Kanal 3 




} 


{252C}/$18/$F5 

{ 

{252E}/$3A/)$2iA8 


[ 


JR 


INI13A 




} 


(BILBi . 


LB 


A'. (MERK) \ Bildschiriausga 


be nur 


bei 


(2531}/iFE/t54 


r 

i 


CP 


54H ■ , . 




) 


{2533}/$2S/$8i , 


? 


JR 


Z. BILBi ■ 




s 


(2535) /$C9 


>* 

i 


RET 


. * 




} 


(2536}/$0E/f09 ' 


{BILDl: 


LD 


C,9 




} 


{2538}/$3A/>f21BI . 


1 

K 


Li)' 


a;(tsi 






{253B)/$FE/IS1 


{ 


CP 


i' 




> 


{253D}/*287409 ■ 


( 


JR 


ZJILB2 




/ 


{253F)/?FE/|82 


{ 


CP 


2 




} 


{2541}/$2S/$0A 


{ 


JR 


ZiBlLB3 




) 


{2543.}/$FE/$03 




CP 


3 




J 


{2545I/I28/T0B 


/ 


JR 


ZiSlLB4 




) 


{2547} /fC9 




RET 






} 


(2548}/$H/>l2849 . 


{BILB2; 


. LB 


BE,LOE 




} 


{254S}/fl8/$08 


/ 


JR 


B1LB5 




) 

} 


{254D}/$H/>«684 


OILB3? 


LD 


BE, TEXT 




{2550}/$i8/*'03 


{ • 


JR 


SILD5 




} 


{2552}/$li/)«601 


{BILD4: 


LD 


BE.LER 




} 


{2555} /fflB/ >*8005 


{BILBSs 


CALL 


BIOS 




} 


{2558}/*C9 

/ 


{ . 


RET 






} 

\ 


\ * 

{ 

/ 


V 


; Tifaei 


Is der gueltigen Zekhen 




•} 


{2559)/$30/$31/$32/l33- 


(ZPRUEFz 


BB 


'30H,3-iH532H,33K,34H=,35H,38Hs37H, 


t 

TOti “DU\ 


{255D}/$34/$35/f36/l37 

{2561)/$38/l39 












.p565)/t20/?^B 


t 

\ 


DB 


20H.0DH. 




{ 


{ ' 

( 

(2-565) /f-@D/f-0A/$4C/l28 




f - ' , 

1 






} 


(FEr/- 


r^D 

k-U 


CRiLFj'L E S E F,E H L E F; ',CR, 


,LF,'*' 


i 

•> 

j 


{2569}/i45/$20/$53/$20 



{2m) iminm^um 

{2571}m5/$28/*4S/l20 
{2575)/«C/«0/$45/f20 
{2579}/$52/$20/$0B/ieA 
{257B}/$24 • 

{257E>/t0D/reA/t4B/$6! {FE2i ■ 

{2582}/$72/*74/f65/$20 

i2m)imiunimfw 

mmim./miuiim 

{2592}/$77/f65/$73/$65 

{2596>/$6E/$287$21/l21 

{259A)/f0II/l0A/$24 

{2591)}/f0D/F0A/t-75/f6E {FE3: 

{25Al}/$65/$72/«C/$Al 

C25A5}/f75/«2/f74/$65 

{25A9}/i20/$5A/445/t&9 ' 

•{25Al)}/$63/t68/$65/$6E 

{25Bl}/fP/l0A/$24 



BB CR,LF, 'Karts ios Geraet qswBsen ! ! ' ,CR,LF, '$’} 



CRiLFi 'unsrlaubte Ieichen',CR,LF, 
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{KOef .inc Bg-finitianen fu^r KKarte; Pr/30.5.89) 

COHEt ■ , 

Versi on-' Ken nl-ar ten Schreibs-n 9 1.0'; 

MeldZ = 20f (Zsilen-Nr fuer Beuieneri-neldung and Fehlsranssioe) 
FshH - 22j 

FehlerBatai^ (Kennzahi Bateiiehler) 

Return - "'Hf {Tastencodes} 

links "{TssU 

Rschts 

' Reset •= • 



KKZeichsn- ' 0123456789'; 4queltiqe Zsichen tuer Kennkarten-Schreiben) 
type- 

Str2 = Strino[2J-: 

StriS ~ StrinSilSh 
Str3i = Strinq[30ii 
Str3? ^ Strinq[37]i ^ 
ytr i 4 St n no 1 1 4 ] : 

Str64 = Strinq[64J: 

StrS0 = StrinqiaSll 

' KKTyp = Str37; 

FBatenTyp = 

Datei'NainsTyp^ {Btrl4|> Str8i^ 

HenueTyp - ^ilenue J^t Jbf ) : ' . 

Aktionlyp- (LeseniSchreiben): . 

ParasiTvp = record' 

tlebsrschrift : Str64: 
case Artnenus: HenueTyp oF 
•Henuei (Aktioni AkBonTyp)| 

Txt ■ \ (BatsiTxt: BateiNaiBsTyD)! 

DbF i (SateiBbf: HatCfiNafrieTyb 

. FAnzeiqe,FKKarte*FBedingang: Strl0) , 

endlrecQrQjf ‘ 

var ’ 

P^rmi ParaisTypi - 









08.06.89 / 16! 15 



- 01 - 



KKSLE.INC 



Ireiber SLE Pr/3g.5.89) 

12.5.89) 



{MC-Prografflffl voti Sum 
const 

{SLE-Treifagr) 

AdrTest = $2100r 
AdrRead = t2103j ‘ 
Adriii'rits= ^2106; 
Adr£rror= .12109; _ . 

AdrPufH = ^Ecl 2-^$ A 
AdrPulR = imn 

type 

KKTyp _ = Strinqi37]| 



iProcBdur-Adre-sss) 

\ 

(Fehlerbyte des TreibGr&) 

{SchreibpuHer) 

{lesepuTTer} 






shlerffisldunQen} 
KKEr r Of Typ - 



iOkj (Aktion korrekt) 

iesetehi j iLessf ehler) 

kartfj (Karte noch in Seraeti 

unjuiaraig, .(imzulaessiqs Zgichen bsini Schrsiben) 
lasnqej lunorlaubte'laenge} 

unglsici“i)f, (Kantroll-Lesen nicnt mit Schreiben idantlBch) 



var 




proc^durs KKJsst; 

procsdurg KKR^ad 



BKtsrnal AdrTesti 
oKiETnai AurRsadj 
BKtornal Adrklritsf 



{Adressen in SLanU 



procedure KKi^ritsi 

function KKLesenCyar KennKarte; KKTyp) i KKErrorTypf 

bsilin 

‘K^sadi 

1 1 L enq t h I Pu f Read ) < S i £ eOl ( KK I y p ) ' t h e n 
Kennkartei=PuTRt.sdi 
KKLesenr-Puf Error? 
endCKKUsen)? 

function KKSchrei ben (var KennKarte? KKTyp)? KKErrorTypi 
beqin 

Pufl^'ritg?=i(ennl(artet 
KKWrite; ' , 

‘ p^Schreibeni=PutError: 

. It PafError^OK then bsoin 
KKReadi 

lp(Schrsibenf=PufErrorf , 

if Pufrrror=OK then peain 
• aibiile Lenqth.(Putlfrite)<Lsnqth{PufRead) do 
Pufv)rits?=Puflirite4‘ '? 
if PufReadf/Pufyrite thsn • 

\ KKSchreibenj-unoleichi 
sndiif)? 
endCif/i 

endCkhSohreiben}! 



f unction. TestnCProq? Boolean? 

Coup? true? SLE-^Triibsr ie-t qeladen) 

const 

IC3| 

begin ^ ' 

'T85tHCProq?=falss? 

it (Addr (Kl^eadH /AdrRead) or (Addr(l(Kyrite)OAdrvirite) then 
yn iBin f^Adr Read? ‘ .Addr(KKRead) ^ ' Soll-Adr? \ AdrRead) 
ei se ^ ^ 

).J®d! or (fisiri|AdrRes?l<>j¥ri) thf*n 
WritslnCkein JHP')^ U -/ ■ ' 

else ■ ^ 

lestHCProg!=tru^r 
eiidCTestMCProg}; J 




!5J6.S9 / 14103 / 



-01- 



(KKBild.inc BiidschiriTi luer KKarts Pr/.:^S.5.£9) 

{berioetiqt KOef} 



nracedure UeltllelZsilp; Byts)? 
beqin 

“8otQn(Ueils)| 

CIrEuh ' 

GOdi 



Dr ocsdurs. Bi IdSchirffiUieberschriftj Str64) | 
‘{Au-fbau das Anlangs-Bildschirffies) 



procsdura linisj . . 

end{Ldnia)j ^ . - 



beqin 

’'CirScri . 
liriteln (ysrsion) \ 
yrltalni 

Linie^ , ' , 

6otoXV(40--L£risth(llaber5ciirUt) qiv 
liri ta (Uaderscnri f t ) t 
6otDXV(l,4)d 

'^DtoXV (£8,^1 1 

Linie^ • 

I4ritelnj 

endCBildSchirsi)! 



ofQcedura Ends? 

’{Aufbau des EnQ^liidscnirfies} 

BiluSchlrmrEnde Kennkarten - Schrfiosn )] 
arid j 



i 



p r DC ed ur e f e h 1 er fi&l d ( F eh I sr \ l(K£ r r or T y p ) ^ 
lAusgabe FfehlsfiTieldyng auf aktuelle ZMlo) 



Cd5t* rail 

leesf 
kertt 
unzul 
laen^ 
unqls 
eedCcks 
if Fehic 



ena 



^ |lrite('Usetehler')i 
^^ritsCKaris nuch iin 8eraet')t 
i Mrltei'nur ZifferR eriaubt*}i 
: l^lritsrzu viele Zeichen'l.i 
i ^iriteC 'Schreihfshl-^r ■ ) f 

then 



furiction HeldiinQ(Hsldr Str30‘j Fehien KKErrorlyph toleani 
{Ausqabe einar BsdignerTuehrung aul Zeile rteldZ uno-Fehiarffieidung auf 
,Zaiie FehlZi Marten auF BsstastiQung)_ 
iQUpj true; po’sitiV8s fslsei nfi^ativB sestaetigufig/ 

var 

Taste; Chari 
begin 

ToelBilelHeldZ/ i 
GQtGXVa.MdDt ^ 
llrite (He! 0 / i 
GotoXYCLfefilZ)! 

FehisrHeidiFehlsr)! 

•6otr}Xt(S8jHeIdZ);/ 

Hrite( 'AusqeluBhft; (Jla/ffilsln; JMinkshj 
repeat' 

Rsad(kbd*Tasta)i 
if Tasie^Return'then 
Ta5tet='J'f 
Ta£tei=UpCa5eUaste); 
until (Tsste^W) or (faste^^'lf i| 
toeipl leiFshlZ) i LoeZei ie(HeldZ) i 
6otDX^(l,HeldZ)| 

H8ldunq:=Taste=*J‘j 
end -iHel dung) i 




19J6.87 / 14j19 ■ . 

{uBsse'Zanc luqrift zu dBASE2-I)at«isn mi Sat2laeiigsn<=2M0) 
const 

oBBuf Ls-n '= 2g47j - 
Blocklen = 128r' ^ 

dBKopfLsn^^ 520 
nsxFoldL&n-88; ' 
dBPeleto =‘^1 
dBEnde 

typo , . ■ 

( ‘ Batsi tfanieTyp= StrinaCi4]f } 

( FBatenTyp • ^strinotflsKFoldLon];} 



FoIdMafiieTyp 
dSFeldlyp =rscor 



FoMsiA'RRAYEh.i01 oF chari 

BBy iBytei 

Fly j Char I 

FLsnjBytej 

FPostlntpqpri 



ond.^ 

dBFlIsTvp =rscori 



BBy iiiytEj 
{ 



(Blindbvto 08«} 
{Feldtvp} . 

(Byte pro Fsld) . 
iByts ab R£C“BBOin/ 
(Bs 2 i ffisi stel 1 onby to> 



}^n‘i50 

dBFi]^ 
dBPuf 
BlockNr 
P-*t7fuS 
SatzNr 
Puf Lon 
IstWrit 
Eof 



I array[0» » uBPuf Lon] of Lhafs - j 
rlnteqer 



nntsQsrt 
i Iritefiar] 

! Integer I 



{Nr Block fifft Puf 7 Anf J ' 
\Po5* ds Satzss is Puf) 
{Nr dss aktuollen Satzos*} 
(aktuslle Pufforlaonne} 
(nsch Batenand&rung true) 

CTlsf ci ©nffe? frnc’i 



dlK 



vsr . 



and I 



ilaollani * . 

. , iSouieanr 
recorri' 

((Byts iBvter 

Satzftruilntsgsri 

dlBatimiarrey[it.3]of Char?,{Batuiii} 
SatzLenilnteqerf ilyte pro Satz) 

dSFtld rarraynL321 of dBFsIdTvpu 
end^ 



{Bat ei ends I true) 

CKgnnbyte %2) 
■^akt^Satzanzahl) 



dB2^- 

dBFile 

dBPut 



dBFileTypi 

arraytS.^dBPufLen] of Charf 



procedure dSNeKtSatz? 
(Naechste Satz) 



yar . 

AltPoSibi integer^ • , - ■ . ' . ’ 

beqin • - ' • . -x . 

'rith dB2 do bsQin . 

AltPQSJ=SattPo5i 

it SatzNr>8 then ■' (weasn Ooen) 

SatzPasi^SatzPos+dBK.Satzleni ’ 

5atENn=8uc£(5'at2Nr)| - 

: if Sat 2 Pos^dlK*SatzUn>PufLtn then beqirf {Satz nicht vollstaendio i© Pul 

. if IstWnte then begin ” ’ (erst zurueckschreibin) 

- SeekCdBFile JlockNr) r ^ / . . 

BldckiriteCdBFUejOBPiif 5 F^afLen rliv srockLsn)i 
l5t«ritsi=t3l5Pj ■* ' ■ 

, end{if)| 

BlockNr j=BlDckNr+(SatiPo5 div BiDckLen)| 

SeeklpFileJtiockNrlj - .(neupQeitiQnieren) 

BlockReadEdBFils^dlPuf ^SuccidBPufLen) div BlockLan^Gi^ 
PufLeni'=b-^BlDcfclen| 

SatzPo55=SatzPoe joodJlockleni 
endiif)? - . 

endCwith};' 
end {dBNsxtSaiz}*; 



•function dlSkipi Boolean: ' . 

(naechste Satz mi Uebergehen geloeschter Satze^ true? noch Baten/vo^^banden}' 



boom • . ■ . . 

dl2 do begin . ' - 

repeat ' ■ 

dBNextSatzi • 

until (dlPuf [Satzr05]<>pll)Hlete) or IdBPuf [-SatzPosj^dBEndel or (rufien=^0 
EDfi^fdEPufrSatzPosJ^dBEnde) or (PufLen=0)t 
dBSkipj=not Eof| 

end{«ith)i \ ^ 

endfdBSkiplf 




19,06,89 / 14^9 . -*02- 

functi on dBQpenidlDetsii^-MTiej BatslNan^eTyj})? Boolean;- 

{oeffnen e-insr dBaseZ-Datei; trusj neoetfnet|\ fal5e; keine Batei, nicht dBase2) 



var . — 

, i,p,b. : Integer!- .. . - 

beginj ' ^ • 

dnUnerij=false; 

ii-li ' . ^ 

if Pos(\ - then dlI^5teifk^.ei=dBBatei!toe^%db( 'i 

.Assign 

ResetidiFile); iih) 

if iOReeuIt=0 then oeqin- {wenn Fils eKistiertJ- 

idth dB2 do begin 

BlGckRead(dBFil€|-dSPaf ^SucciuBPaflen) div BlDckLsn.b/t 
• if b)8ucc(dBKDplLen div Blocklen^ then begin tund voile Laenqe) 
MovefdBPufjOlKjSiieOf (dl((})j 

if (dlK.KIyte^v)’and (dlK.SatzLen<=QBPuiLen-BlockLen) then begin 



OK) 



p^-PreaidlK.dBFeidiiUPos) ; 
reosst 

^jBK.dB^e]d[i],FPo5^=Abs(dBK,dlFeldfi].FP-oe-p)^ {Po£= Feld iiri Sat2> 

until (i>32) or (dBK,,dlF8ldnUBy>0); Umd lliftobyte alls @==1 
if i>32 then beain 
Istyrite^^false; 

Eofj=faIsst ^ 

. SatEPosi=Succ(dBKopfLsnh - ' 

■ BlockNn= 6; • • . 

dB^.RufUni-PBlockUn;. . • . . 

Sat 2 Nr * “0* 

fsvt. gelosschts Ssetze ueherphsn^ oder Puffer richtlg fuel 



dBOpen?=dBSkipi 

end(if) 

endCif); 

endiifli 

‘ if i<=32 then Close(dBFile) 
erid{^4th}] . ' . 

endCif); 
end{dlOps-ri}| 



procedure dBClosei 
(SchUessen dsr dlASE-Batei.} 

begin 

”if' d‘12*IstNrite then begin . 

Seek{dBFii8.dB2JiockNrh . 

BlocMiHtefdBFile.dlPaf tdb2.PufLen div BlockUnlj 
dB2JetNritef=falis; ’ 
endiiflr ■ . 

■end; ^ . 

• 

function dBEof; Beeleani 
■ lEcf des pasef iles) • • • 

begin 

rdBEDf§=dB2.Eaf| 
endi - ^ • 



(erst zuruecksdireibenl 



procedure dBF&ldParaffiiFeidNaie^ Pel dNasi^Typ; var ReidPos^FeldLent Integer); 
israittelt die Para® eWr des Fsldes Feldnams; FsldPasr Poe-itioa 1® Puffery 
Honn FeldNaffig nicht vorhanden, dann feldlen^i) 

var- - ^ * 

it Integer; 

rNrarrayu^^l01 of Char; 

begin 

it-ki 

i^hiie iix^Length (FeidnaHie/ ) and ii(=^18) do besin 
FNLi]?=Ma5e(FeldNasieri3)i 

ii=SuccU); 

end; . , ‘ . 

while i-(=10 do begin 

FNtih-"@l ‘ (fuelen ®it BllffdBvte) 
ij“Succ{i); 

endCwhile); ’ ■ • ' v 

i!=8; 

Kith dB2.dBK do begin ■ • 

, repeat^ 

is=|}ucc(i)i 

until (i=32) or (dEFsldIi3.Fdia=FNi; 
it dBFeld[il.FeNa=FN then begin ' • 

Fel dPos! =dliFel d C i 3 . FPd 5+(1B2 . Sah PQS ; 

-■FeldLen;=dBFeld[iLFLens 

sndtthsri) ' 

else 

F9JdLsn!=@; 

end {with}! • - 

endfdBFeldPahffl); • • , - 



IIBASE2.3NC 



tund .Kennbyte 



]-en3 




-§3-. 



19.06.89 / 14i 19 ' : 

■function dBHeadiPglcIfeiiejFeldNsfD&TypU FBatsnTyp^ 
(Lesen d^5 Inhsltes sines Feldes> 



vsr i 

FLen.FPos: Inteqeri 

Datsn i Natenlypi ' 

be-uin ' ‘ ' ' ' 

'with dE2 do faeqin 

if not Eof then beqin 

dBFsI dParar« (Fsl SfkrTie ^ FPos . FLsn > ^ 

Jf FUf{”0 then 
. Bdten::=’ ' • 
else beoln 

ii FUn>H5xFeldUn then FUnJ=HaKPsIdLsn| 

• nat8n[iii=:Char(FLen;i 

Hove (dBPuf [FPos I , Baton C 1 J , F 1 en 
end{it)| ■ ‘ ‘ 

.endithen) 
els§ 

Batsni=''5 

end{with>r ^ • 

• uBRoadJ “BsLsn^ 

ondtdBRsad}? ‘ . ■ ., 



FLenjFPosJi IntegsTi 

bE'Uin • . 

’with dB2 do begin 

if not Fof then beoin ‘ 

dlFoldPararn(F8idNaseiFPos,FLsn)| 
if FLsn=0 then 
' Feldl)ateni=f ' 
else beoln 

h=Length(FsldBaten)| 
if DFien then Ii=FLeni 
HovsfFddDateniF3,-dSPuf [FPqs],i ) | 
while KFIen-do beam 
dBPuf[FPos^l}i=’ 

ImSuccd)^ 

5fid.{while}i . ■’ 

iStyritsmcruer 
endCifh ' . ’ 

end (then) ^ , 

. . 'SlSS . ■ - • . 

FeldBatsni^' . i 
ehd{«ith}i 
sndidByrits)! 

CTestJ • ^ • 

var fifdatentypt 

begin- 

ii dBDpen(’di\dba5e2\neulQsd then beqin 
write(db2.Bahnr. '• l')i 
readfeldi'ao’.fh writstf^nr 
readfsldf'silSflf witeH+'nf 
readfeidi 'loshr ' ,f 1 1 wr-iteH-f ' ; 

^eadfeld(^datum^f)| wri • 

readf eid ( ' ?.Bi t " if ) I > 

wrltelni 

ubclosei 

mil ' ' 

sndi’ 



[onTyp) 




07.06.89 / 11:49 



THBAT 



(TxtM.inc ' Lesen einer Text-Daten«latei Pr/6.6.89) 

(Textdatei besteht aus Zeilen, deren Datsnlslder ait Bsliaiter aulqebaut aind. 
Beispielt ‘ ' ' 



const 

ielStr= 

DelFeid 



I. - 

! f 



{type 

FDatenTyp = Strino[80]; 

MeiNaffieTyp= Stringtl43: ) 

var ' 

TxtFiie : Text: 

. TxtPuF I Stri.ng[2553j 

Fuction TxtSkip: Baoleanf 

{naechste Datensatzi true: Baten vorhandep} ' 



begin 

if EofdMtPile) then 
else - 

RsadlndKtFilejKtPuf)*; 
TxtSk-ipi^Lsngth-'dKtPuf h 
snd{TxtSki 0 }| 




Tunction TKtOpenxBateiNafflet BateiNgfiieTyp}? Boolean^ 

(pet-fnen der Text^'Datendatsii trbi^ neoednetj falser kaine Biskfehler. 

falschs TeKtPorfiiat} ' ' “ ' 

begin . ' . 

MGpenf=^f5lse| . 

AssigndKthiie Jateirk^elf ‘ .. 

{$!-? Reset (T^tFileli t$d) ■ . ' 

. if IORssult=0 thenib-eoin . 

MOpegrdKtSIdpf . 

•sn0{if>| . • 

and{TKtOpen)| ' ^ 

fanctiDD TxtEofi Bnulearir ^ • 

(Test Dateiendsl 

beqin 

dKtEQfr=EofdxtFile); 

endilKtEofir 



p/ocsdurs MFeidPara^CFelcINn Ivtei var FeldpQSjFeldUni Inteoer)? 
{ermttelt die Position und die Laehqs des Feldes mi FaldRr ifi Puifsrr 
rst dieses Feid nicht vorhandeoj- dahn FaIdLenr-0) 



var ’ ■ • 

U Bytej ' / 

begin ' - ' * 

Ii^UnqthdKtPufli 
if (FeIdNr>8r and' (1>.8) then beain 
^ FeldPosr=i| • - ■ " • 

repeat • ■ 

if Fe]dPos>i then begin 
Fel dPos r =Fel dPos-i-Fe I dlen r 

i f . TxtPuf [pel dPpsi^Bei Str then Pel dPosr =Succ (F el dPos ) \ 
if TxtPufEFfidPpsl^BslFeld then FsldpQSf^SucdFBldPos) 
encKif}-:’ . • ' ’ 

if TKtPuf [FeIdPosl=;DelBtr then begin 
FeldpDsr=-Sm:c{reldPob) I 

fsIdUn j =Pas (BelStr X Copy (iKtPuf jFaldPQs 5 i “Pel dPds-fi )) -1 ^ 
end (then} . - ' . 

else beoi n ^ 

FeldLlnr =^Pos(I)el Fild * Copy (TKtPuf ,Fe Id Pos . I “FeldPoBTl) 1 - i r 
if FeldLen<0 then FeidLeri:=l-FeIflPos+I: ‘ 
end {if 3 j ' 

Pel dNr ?~Preu {pel dNr) I 

uritil (FeldNr^S) or (FeldPos’^Fsldlen)]) or (feldlen<=0h 
if (FeldNrO0] or (FeldLan<^8) then Feidlenr=0| 
eridCthen) ' ’ 

else . ‘ ' 

FeidLeni=0i 

end{TKtFeldParani>| 





function TxtReadCFeldNn Bvteh FBatenTypi 
{Lesen dss Fsldssr Feld nicht vorhandenr Lserstring) 

Var- . . ■ 

FeiePoSjFeldl-eni Integerr _ ' 




TXTMT.II 



07.86.89 '/ 11:49 ' ' -02- 

I 

bgqin 

‘’TKtFeldParsffl(FeidNr,FeIdPo5jFsldLefi); 
if Fddlgn>0 then ' » . 

TKtResdi"CDpy(TMtPuf jFeldPosJeldlen) 
else 

T^tRead^=^'l 

sndlTKtReadi^ 



/ 
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{KKHenue.inc nenue-Fiehrutig Fur Kennkarten 
CbenntiQt KKBefjKKBild) 

{Aulbau wie Bateizugfiffg dBase2 und THtDati 



Pr/7.6J9) 



var 



HGoEndJ Booieeni ■ . . ' 

flinPufj. KKTypi / v' 

function HenEingabe;; BoolBani 

{Eingabe fuor das SchreibsnL falssi Abbruch Reset), 



var 



.B • 5 Byte", 
Ta.stei Cnari 



begin ‘ ■ . • : ' 

Her{Pyfi=*'r - ’ ' - (Puffer iit Lesrisicbsn fuslien) 

for to SiieQf (MenPuf)**!' do HsnPafi“HenPult‘ ^ 

. Gotonfi,?)! - - _ . ' ' . ■ • 

’ llritelnC Einoabe der Baten luer die Ksnrikartef)^ 

WritelnC' ” ; mt* "jLengtb(MenPirf)j\ Ziftsrn^ 'RETURN; bsstaetigtr REStTr'kalri 



repeal . 

r ■9otQ;(Y(20jl2)r ^ 

^ NriteCi^MlenPuf/l 
- . 6QtDKV(20V5l21| 



Rsf ad ( k b d I T ast e ) 



. -- Zeichenj Up;3ff^ \ 

^ CKursor set^en; pi Position} 



until PosfTaSteiKKZsichBn’tLinks+RachtS'^Return^Reset )>0f , ^ 

u5se Taste of . - 

- ' ■ L^inks I if 'p>l then p5=Prad(p)j -', , - 

Rechtsf if p<Lenqth(tenPu?) then^ pi=SLfcc(pM_ ‘ 

Return;' r' - " • : • ’ 

■ .. Reset 1 r ■ • ' ; ‘ ■ 

^ else begin' ^ ' 

^ ••:MenPufTp]f-Taste| ' . ' ' / 

. ; if'P<Lsngtti(HenPuf) then p;=puccip)j ‘ ’ CZeichen’elntragen) 

■ #nd(eiBs3| - , ' * ' • . ^ ^ . 

snd{ca5e)t : • ' 

■ -until PDs(Ta5ts,-Return’5-R9set 1)0^ - 
for pi=9 to 12 do LoeZsileipTr’ * > . - • . ■ - , . , ^ 

tenEinqabe^-Taste^^Rsturni ' "'. * . ■ * 

ehdiNenEinaabeh. . . ' - '' - 



function llenSkipflaalsani 

(hn'tschsiduriq Leseri/Schreiben/^^ true'; nicitt bssnden) 

var ' ■ : . ’■ ' M ' 

, Taste " I- Snsri - - ' / : " - - - 

i -I Bytef . ■ , , ? • ^ : 

Abbruthi loolfanf ‘ ‘ ^ : ‘ . 

begin : ‘ - V - ■ " 

• loaZtiiedSli. ^ ^ . • 

■ Tepeat^ ; • v • 

h‘ritein( ' ' teehieni 

. ' ■ Nritslnd. r ■ '• , / 

Mi i tel n r ' f 

: ■ Nrita TV ‘ ' / 

/ : repeat . 

, Resdikbd.j6ste) j - ’ ’ 

■ Tastel=tlpC3se (Taste) t ‘ ' ' ' 

until fosiTaste,lSEd>iii - ■ . 

fQr',ii=^8.to ij DQ.LQeZei|e(i)| 

Abbrucin-truet 

case Taste of' ■ '■ 

Id. Paraf^ jktiflni-LssenL ■ 

'S'l basin . *' ■ ; ^ 

■ ■ . d'^arat^Aktioni^Bchreibeni 

• Abbruchs-HenEinsabei / 

. » endiselect)^ ' * “ . ■ V. 

■ end{case}|’ • 

until Abbrucn; - ' .*■' 

. HenEndi-TssteO'Ed 



Cbis sins gueltige Aktiori} 

L esendr ' - 

S' chraibendfs ' . . 

E nde d? > . 



.HenSkibirHenEndi 
endffienShpij ^ . 



function HenReadi-FBatsnTypi • 

(halen; der elngegebenen Baten) 

besin ' 

- H8nRead;=Copy(HenPuf5l5Length(!1enPuf!)| 
endCHsnRead}; 



Schretbend 



/ 
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functian HenEoiJ Boolsanj 
'(true; beendsn) 

bealn 

HenEDfi^HenEndf 

sndCHenEaf}^ 

\ 

function KsnOp^ni Boolsan^ 
beoin 

H&ntr{d 5 =fal 50 i • ■ 

HenOperu^^HsnSkip; • 
eodxHenupan/j 



I 

KKHENULINC 






/ 
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pPar Jnc.' Pararoeteranalyse fuer KKarte Pr/30.5.89) 
{benoetigrKKDeP} 

function Paraiftnalysefvar Parais: ParaiBTyp): Boolean: 
{Analyse der uebergebenen Parameter entsprechend der Syntax 



true: Syntax ok) 



Pc,i: Byte; 

• Ps : Str2j 

begin ' . 

‘Para8iAnal¥se:=false: ' ■ 

Pc:=ParainCount; ' ' 

H !PcM) anf (Length(p3rafflStr{I))=2) end (Copy{ParaaStr(!).l,l) = 7'l then begin 
p5;=Pafa8iStr(l): . • ' ■ ^ 

casf ypCa5e(Ps[23) of 

'{f I if Pc-I then begin ■ - 

Paraffi.ArtHanue?~Menue| . ’ ' 

ParaiHrUeberschrift^^'LesBn odsr Schrsiben's' 
p5raniAna]y5ei=true; 

enddf}^ ' 

'Vi if Rc=3‘trien bsoin 

Param:.ArtMenue^=T:4t| 

Paraffi, Ueberschri f t ; sparaffiStr (2) I 

Psraffu Batei Tk 1 1 “ParajsBtr (3) I • 

ParaffiAnaiy‘sei=truei ' ' 

end-fif}; . ’ 

B j if (Pc~5) or (Pc“&) then beoin 
PararuArtHermsi=dB| " 

Parain=Ueber5chriftj=ParaffiStr (2) [ • 
j. , PareiruBateiUbf s=raraffiStr(3) r ; ’ 

ParaiTi,FAn./8iosi=ParaiBStr(4)i • 

. Paraift,FKKArti;-ParaffiStr(5/i' 
if Pc=6- then. 

.Farari* FBedi nqung i =Pera(iiStr (6 ^ 

. . else 

Paranj.-FB8dinouna;-‘\' . • 

ParaiAnalysej-tfuer / ' 

, endfif): • , ■ 

endfcase}? , ' 

.. if Pc>2 then , ■ J 

for to UnQthCParai.Ueberschrift-) do 

It Paraffi.iJgbirschriftfiJ- ''then ■ 

Parasi«Ueber5chrift[.iIU=i'' * 

. Bnd-(then> ^ ^ 

else ' , * 

ParafBAnaiyse?=^f alse^ 

8QcHParaffjAnalv5e}| . ' , ’ 









I9J6=a9 / ihm 



mm Am 



CKKArbanc BearbeitunqsorDSBdursn fuer KKart^ 
(benoetigt KKM5KKJiidx™8njdBa^e2 jKtBatsn) 



orncsdurs KartBSdirB’ibertfKKarbp^ }(KTyp)i 
iSchreiben einer Karte) 

var ' . • / 

Fehler? RKErrorTyQj 

beoin . \ , 

^8Dtu)(Y(id7>; 

yritelnrSchrBibBn der Kennkarte'); 

FehlBr.!=OKi 
repeat • 

if Heldungi ‘Karts in SLE ainschieben' jFeblsr) than usqin 
Mritad 'Schraibsn lasuf t ‘ ) ; 

rehlsri-KKBchrsiben(KKarts) ; ' ' 

if FahlerOOK than beoia 

if not Heidunqi'Nochrysl Scnreiben ?%Fghiar)- then'^ 
Fahisr;<iKr 
andCif/) ' ' 

andilflj" 

until Feb I gr “OK I 
LQeZeilEU7)| 
and(Schreiban}| 



procedure KarteLessnCvar KKartas KKTyp)i 
(Lssen ainer Karts) ' . 

var 

Fahleri KKErrorlypj* 

begin \ ' 

• eotonua/)^ 

l^riteini Leasn dsr KsnnkarteD? 

FsWen^OKi ‘ 

rapeat . ' . 

if r1eldLmq('K3rts in SLE earrachieb&n' iFehler) then beqin 
WritaC'Lfisen laeuft");' . 

Fehleri^KKlasenCKKartl)? 
if FahlerOQK then begin 
- if not MeIdunQ(‘NucbiBal Leeen ?\Fehler) then 
Fehlsn^iKi 

' ' . ■ . 
endClf}? - ' . . ■ 

until Fehier=0K| 

LuBZail0ii/)| 

andClgsan); 



functian.NaschstaL Baoiaanf 
(teechste Daten arifurdern} . 

baqin . 

‘'vilth Paraffi do begin 

case ArtHerme'of . . 

Henus! ffaechstei=f1enSkipi . * 

Int i techstei “IxtSklpf 
Sbf I begin - 

' . "if LengtMFBedingung)>0 then begin {?4snn Bedingunq^ dannJ- 

repeat * * {bis erste Zsicnen i® Feid) 

■ until not dBSkip or (CQpy(dBF{ead(FBedinquno) jljU>‘ ‘)\ 

- Naechsts:=^nat dBEofi ' 
sndfthsn} ^ ’ 

else 

SaschsteirdiSkio; ‘ 

endiselectlt ' ' 

* end {case') I ■ ‘ 

eridi^ith}? 

endCflaechstel't ' ■ 



functian Baginnen? Booleartr ' ■ - 

{Be-qinheni ur^ Dateien eroeffnan) 

begin ' ’ ■ ^ 

Para'ii do. begin ... 

case ArtHanue of . • ' • 

Henuei BeqinnaRi^HenSkipi 

Txt r Beglnner}i=TxtOp0nlDataiTKt)r 
Bbf 1 begin 

Beginneni^dBOpen (BataiBbf ) ? 

if not dBEof and (Length (FB-0dingimQ)>0) and (Copy(dBRE-ad(FBsdinQunQ.)*i,U = ‘ ') then 
Bsginnsnj^f^aechatei • ^ ^ > 

endtseiECtlj 

end {case} I 
endxwithl^ 
endCBsginngnii 



-0].- 
Pr/30.5,89> 
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procedure SchliessenI 

{Schliesen der Batein) , - • 

beqin 

with Paraiii do begin . 

case Arttlenue ot 
Txt i TxtClose; 

Dbt ! dBCIoser 
endtcase)? 
end {with) I 
endtSchliessen); 

aShien dsflaten'ihlen^Batein; wenn <8, dann Jateiprobieffie) 



KKARB.IMC 



var 



7j Int£-gsr),- 



Keg in < ■ 

21 'ij' 

if Par^fu^Artl'lenueOHenue then begin 

G0tuAy(i,o)i ' . ^ n . • - V 

^rUeriaehlen der Karten'-Baten in der Batei 
if Bsqirinen then begin 
. repeat- 

2pSurc(2)|^ 

'until not Naecnote? 

- Bchliessen; _ . 

if Beoinnen-tneni * 

endCtfien} ' ■ ' ” 

’*"2j=FshlsrI>ateif 
endCthen) 
else ^ 

2i=“l| 

Zaehleni^a; 

lyeZeiIe(6ii ' 

end{Zaehlen}i 



Menue) 



procedure Bater.HoLen (var KKDatenJ KKTyp; var Anseige;; StrS8); 

‘{laten holenl * - 

. beoin . • ■ 

^Hith do begin 

case ArtHsnue .Qt ^ 

Hsnusi. begin ■ • ' 

Anzeioei=''-| - 
if Aktipn-BchreiDen tuan 
KOaien;=HenRead 
else: . ' . ' 

KKBateni”’ | 
endiselect)! *. 

iKt I begin ; _ ' 

Bn2BiQei=TKtKeaDu/| 

KKBatenj=TKtR^ad(2)| 

endlselsct/^ 

Bbf ; begin . . ‘ ' - • 

Anzeloei^dBR.sao (FArfEeiqe/ , 
kKktini=dBR&ad(FKKart§)r , 

if Length (FBedi ngung) >0 then -wenn iu Beaingungj uduu/ 

' dWritelFBedingung/ ')? CFeldlseren- 

8noiS9leC'-}j I , 

end {case} i ^ ‘ % 

endiwith}|- ' 
end{Da.tenllaie-n)5 ^ 

prncedurs BearbKarteCKKBatsni KRTypi nnseigei 
(Schreiben Oder Lseen ausfuehren) 

I *' - . I 

(Paraa.ArtHenuB^Henue! and (Para!B.Ai!tion=Lesen) th,en begin 
• KarteLssen(KOaten); . 




endtif); 
endtthen) 
si SB beain 

■ SotoXVa.12)! ^ ^ 

Kritelni KartenbesChrHtun^: - 
KritelnlAnieige); 

liriteln; . 

■ ■ MritelftCKarteninhait; ,RKl)aten, • )| 

KarteSchreiheniRKMtsn)! . 

Loe7eile(i2); loe7Bile(l3); LoenejleUb); 
endti-f); 
end{Karte}j 



(Bitte erst Karte beschriften/dann RETURN)');' 




KKARTE.PAS 
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-01- 



(Schraiben und iBsan von Kennkarten mi BLE au-f Kopfstation K 8915/ Pr/30»5.89} 
(zu SvT.taKi • • 

- UQbkrs-r hr nil Lesr/eichan rmessen durch; .ersetzt we-rden 
Textdatei i ie 2eiler 'AnzBiQeinlQniiatiorr/KennkartBninforjndtiorr 

- dBaH-edatei ^ iuss dBase 2-sein 

die Felder FeldAnzeips und FddKennkarta Riuessen vorhanden 
5sin und \m Typ Zeicheru 
Henn das feldledinqunq Zeichen enthaelt. dann nird dieser Sa,tz 
benutzt ^ ) 

{Test version) , ' . 



prograffi KKartei 
uses crt.turboSi 
{•^~ 

procedure Slsi- 

ngoiri 
"inline ( 

(fi SI. ini) 

sndllrtlinii 

($i KOeTrinc) 
{«-TKfCSleanc} 
Wi rCKBildsinc} 
i$i dBdse2tinc} 
(li TKcBatanc} 
{^2 KICMeriUS* incJ‘ 
(ii KKParEinc) 
kkArbsinc) 



(Treiber aiti ftnfang) 
CHL‘''PrDora{Bri ab 2SFFh !) 






beqin i 

'if not rararaAnalyselParansI thsrs begin 



sndr 



i>Jritein( 
Writalnr 
^ritelni ' 
llritelni' 
1‘lriteln’r 
liritelnl^ 
Jlnteinr 
^ritelnr 
end {then) 
ei'sE •• 

if TsstHCProa 
KennKartei 





al Henue-qssteuertes Userf -und Schreiberi/)| 
’'“/t-ysber5chrift“““Textdateir!alje’'’-““-'}t 
■b) Scheibsn aus der Te>itdatei‘)i 
“-•/dH^eb8rschrift-“-’dBaseBat8inaie*’-FeIdftnzeige->''l,* 

i-FeldBedinqung''r'): 
Schreiben aus dBase-i/atei’') ^ 

I . • • 



d 



then 



^ iz jc 







